home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / keno.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  5.4 KB  |  204 lines
  1. 10  REM KENO ACCORDING TO PAYOFFS OF
  2. 11  REM MGM GRAND CASINO LAS VEGAS JAN 1976
  3. 12  REM WRITTEN BY G.W.FLEMMING MEMBER SCCS
  4. 13  REM MODIFIED BY ED HALL
  5. 15  PRINT TAB(15);"$$$$$ K E N O $$$$$"
  6. 16  PRINT CHR$(7);CHR$(7);CHR$(7);TAB(15);"     $$$$$$$$$";CHR$(7)
  7. 17  PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7)
  8. 18  INPUT "DO YOU WANT INSTRUCTIONS";D$
  9. 19  IF LEFT$(D$,1)="N" THEN 145
  10. 20  PRINT:PRINT "EACH PLAY WILL COST YOU $1. YOU MAY SELECT"
  11. 21  PRINT "FROM 1 TO 15 NUMBERS TO PLAY. WHEN ASKED FOR YOUR"
  12. 22  PRINT "NUMBERS, TYPE IN EACH NUMBER SEPARATED BY COMMAS."
  13. 23  PRINT "IF YOU ACCIDENTILY PLACE A COMMA AFTER YOUR LAST"
  14. 24  PRINT "NUMBER, THE COMPUTER WILL TELL YOU THAT THE EXTRA"
  15. 25  PRINT "NUMBER WAS IGNORED (IN THIS CASE, THE EXTRA WAS"
  16. 26  PRINT "A SPACE). IF YOU PUT IN MORE NUMBERS THAN ARE NEEDED,"
  17. 27  PRINT "ONLY THE FIRST REQUIRED ONES WILL BE USED. IF"
  18. 28  PRINT "YOU DON'T ENTER ENOUGH NUMBERS, THE COMPUTER WILL"
  19. 29  PRINT "RESPOND WITH '??'. ENTER THE REQUIRED EXTRA NUMBERS."
  20. 30  PRINT:PRINT "      THE COMPUTER WILL BE CHOOSING 20 NUMBERS"
  21. 31  PRINT "AT RANDOM FROM NUMBER 1 TO NUMBER 80."
  22. 32  PRINT:PRINT "TO QUIT, TYPE '0' WHEN ASKED HOW MANY NUMBERS YOU WANT."
  23. 33  PRINT:PRINT:PRINT "G O O D   L U C K ! ! ! ! !"
  24. 34  PRINT:PRINT
  25. 145  DIM A(20),H(80)
  26. 146  INPUT "IS THIS A CONTINUATION OF AN OLD GAME";A$
  27. 147  IF LEFT$(A$,1)="N" THEN 151
  28. 148  INPUT "HOW MANY DOLLARS WERE LEFT";S
  29. 150  GOTO 160
  30. 151  E=0
  31. 155  INPUT "HOW MUCH CASH DID YOU BRING";S
  32. 160  W=S
  33. 170  Q=0:PRINT
  34. 180  REM INPUT NUMBERS
  35. 190  INPUT "HOW MANY NUMBERS DO YOU WANT";T
  36. 191  IF T=0 THEN 2000
  37. 195  PRINT "YOUR NUMBERS: "
  38. 200  IF T=1 THEN INPUT A(1)
  39. 201  IF T=2 THEN INPUT A(1),A(2)
  40. 202  IF T=3 THEN INPUT A(1),A(2),A(3)
  41. 203  IF T=4 THEN INPUT A(1),A(2),A(3),A(4)
  42. 204  IF T=5 THEN INPUT A(1),A(2),A(3),A(4),A(5)
  43. 205  IF T=6 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6)
  44. 206  IF T=7 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6),A(7)
  45. 207  IF T=8 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8)
  46. 208  IF T=9 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  47. 209  IF T=9 THEN INPUT "LAST FOUR:";A(6),A(7),A(8),A(9)
  48. 210  IF T=10 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  49. 211  IF T=10 THEN INPUT "LAST FIVE:";A(6),A(7),A(8),A(9),A(10)
  50. 212  IF T=11 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  51. 213  IF T=11 THEN INPUT "LAST SIX:";A(6),A(7),A(8),A(9),A(10),A(11)
  52. 216  IF T=12 THEN INPUT "FIRST SIX:";A(1),A(2),A(3),A(4),A(5),A(6)
  53. 217  IF T=12 THEN INPUT "LAST SIX:";A(7),A(8),A(9),A(10),A(11),A(12)
  54. 218  IF T=13 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  55. 219  IF T=13 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  56. 220  IF T=13 THEN INPUT "LAST THREE:";A(11),A(12),A(13)
  57. 221  IF T=14 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  58. 222  IF T=14 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  59. 223  IF T=14 THEN INPUT "LAST FOUR:";A(11),A(12),A(13),A(14)
  60. 224  IF T=15 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  61. 225  IF T=15 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  62. 226  IF T=15 THEN INPUT "LAST FIVE:";A(11),A(12),A(13),A(14),A(15)
  63. 227  FOR R=1 TO T-1
  64. 230  FOR M=R+1 TO T
  65. 235  IF A(R)=A(M) THEN 225
  66. 236  IF A(R)>80 THEN 261
  67. 240  NEXT M
  68. 245  NEXT R
  69. 250  GOTO 299
  70. 255  PRINT "YOU HAVE DUPLICATED NUMBERS. TRY AGAIN."
  71. 260  GOTO 191
  72. 261  PRINT "YOU HAVE A NUMBER TOO LARGE. TRY AGAIN."
  73. 262  GOTO 191
  74. 299  N=T
  75. 300  FOR X=1 TO 20:REM SELECT 20 NUMBERS AT RANDOM
  76. 310  H(X)=INT(80*RND)+1
  77. 320  FOR Y=1 TO (X-1)
  78. 330  IF H(X)=H(X-Y) THEN 310
  79. 340  NEXT Y
  80. 350  NEXT X
  81. 399  REM DETERMINE HOW MANY WINNERS
  82. 400  FOR X=1 TO N
  83. 410  FOR Y=1 TO 20
  84. 420  IF A(X)=H(Y) THEN Q=Q+1
  85. 430  NEXT Y
  86. 440  NEXT X
  87. 499  REM DETERMINE PAYOFF
  88. 500  IF N<>1 THEN 550
  89. 510  IF Q=1 THEN W=W+3
  90. 550  IF N<>2 THEN 600
  91. 560  IF Q=2 THEN W=W+12
  92. 600  IF N<>3 THEN 650
  93. 610  IF Q=2 THEN W=W+1
  94. 620  IF Q=3 THEN W=W+43
  95. 650  IF N<>4 THEN 700
  96. 660  IF Q=2 THEN W=W+1
  97. 670  IF Q=3 THEN W=W+4
  98. 680  IF Q=4 THEN W=W+114
  99. 700  IF N<>5 THEN 750
  100. 710  IF Q=3 THEN W=W+1.5
  101. 715  IF Q=4 THEN W=W+21.5
  102. 720  IF Q=5 THEN W=W+485.5
  103. 750  IF N<>6 THEN 800
  104. 760  IF Q=3 THEN W=W+1
  105. 765  IF Q=4 THEN W=W+4.5
  106. 770  IF Q=5 THEN W=W+85.5
  107. 775  IF Q=6 THEN W=W+1571.5
  108. 800  IF N<>7 THEN 850
  109. 810  IF Q=3 THEN W=W+0.5
  110. 815  IF Q=4 THEN W=W+1.5
  111. 820  IF Q=5 THEN W=W+21.5
  112. 825  IF Q=6 THEN W=W+328.5
  113. 830  IF Q=7 THEN W=W+5000
  114. 850  IF N<>8 THEN 900
  115. 855  IF Q=5 THEN W=W+8.5
  116. 860  IF Q=6 THEN W=W+85.5
  117. 865  IF Q=7 THEN W=W+1643
  118. 870  IF Q=8 THEN W=W+17857
  119. 900  IF N<>9 THEN 950
  120. 905  IF Q=4 THEN W=W+0.5
  121. 910  IF Q=5 THEN W=W+3
  122. 920  IF Q=6 THEN W=W+43
  123. 925  IF Q=7 THEN W=W+285.5
  124. 930  IF Q=8 THEN W=W+4000
  125. 935  IF Q=9 THEN W=W+17857
  126. 950  IF N<>10 THEN 1000
  127. 955  IF Q=5 THEN W=W+2
  128. 956  IF Q=6 THEN W=W+20
  129. 957  IF Q=7 THEN W=W+140
  130. 958  IF Q=8 THEN W=W+1000
  131. 959  IF Q=9 THEN W=W+3800
  132. 960  IF Q=10 THEN W=W+17857
  133. 1000  IF N<>11 THEN 1050
  134. 1001  IF Q=5 THEN W=W+1
  135. 1002  IF Q=6 THEN W=W+8.5
  136. 1003  IF Q=7 THEN W=W+71.5
  137. 1004  IF Q=8 THEN W=W+357
  138. 1005  IF Q=9 THEN W=W+1714
  139. 1006  IF Q=10 THEN W=W+10714
  140. 1007  IF Q=11 THEN W=W+17857
  141. 1050  IF N<>12 THEN 1100
  142. 1055  IF Q=5 THEN W=W+1
  143. 1056  IF Q=6 THEN W=W+4
  144. 1057  IF Q=7 THEN W=W+28.5
  145. 1058  IF Q=8 THEN W=W+214
  146. 1059  IF Q=9 THEN W=W+571.5
  147. 1060  IF Q=10 THEN W=W+1428.5
  148. 1061  IF Q=11 THEN W=W+7143
  149. 1062  IF Q=12 THEN W=W+25000
  150. 1100  IF N<>13 THEN 1150
  151. 1101  IF Q=6 THEN W=W+1.5
  152. 1102  IF Q=7 THEN W=W+17
  153. 1103  IF Q=8 THEN W=W+71.5
  154. 1104  IF Q=9 THEN W=W+678.5
  155. 1105  IF Q=10 THEN W=W+3571.5
  156. 1106  IF Q=11 THEN W=W+6428.5
  157. 1107  IF Q=12 THEN W=W+14285.7
  158. 1108  IF Q=13 THEN W=W+25000
  159. 1150  IF N<>14 THEN 1200
  160. 1160  IF Q=6 THEN W=W+3
  161. 1161  IF Q=7 THEN W=W+8
  162. 1162  IF Q=8 THEN W=W+31.5
  163. 1163  IF Q=9 THEN W=W+250
  164. 1164  IF Q=10 THEN W=W+714
  165. 1165  IF Q=11 THEN W=W+2857
  166. 1166  IF Q=12 THEN W=W+10714
  167. 1167  IF Q=13 THEN W=W+21428.5
  168. 1168  IF Q=14 THEN W=W+25000
  169. 1200  IF N<>15 THEN 1900
  170. 1201  IF Q=6 THEN W=W+1.5
  171. 1202  IF Q=7 THEN W=W+7
  172. 1203  IF Q=8 THEN W=W+21.5
  173. 1204  IF Q=9 THEN W=W+107
  174. 1205  IF Q=10 THEN W=W+285.5
  175. 1206  IF Q=11 THEN W=W+2143
  176. 1207  IF Q=12 THEN W=W+7143
  177. 1208  IF Q=13 THEN W=W+21428.5
  178. 1209  IF Q=14 THEN W=W+25000
  179. 1210  IF Q=15 THEN W=W+25000
  180. 1899  REM PRINT GAME RESULTS
  181. 1900  PRINT "MY NUMBERS WERE: "
  182. 1905  PRINT
  183. 1910  FOR X=1 TO 10
  184. 1920  PRINT H(X);
  185. 1930  NEXT X
  186. 1935  PRINT
  187. 1940  FOR X=11 TO 20
  188. 1950  PRINT H(X);
  189. 1960  NEXT X
  190. 1965  PRINT: PRINT: W=W-1: REM SUBTRACT BET
  191. 1966  E=E+1
  192. 1967  IF W<1 AND W>0 THEN PRINT "YOU HAD ";Q;"RIGHT, BUT NOW YOU"
  193. 1968  IF W<1 AND W>0 THEN PRINT "DON'T HAVE ENOUGH TO BET."
  194. 1969  IF W<1 AND W>0 THEN GOTO 2000
  195. 1970  IF W=0 THEN PRINT "YOU HAD";Q;"RIGHT, BUT NOW YOU'RE BROKE."
  196. 1971  IF W=0 THEN 2000
  197. 1972  PRINT "YOU HAD ";Q;"RIGHT. YOU NOW HAVE ";W;"DOLLARS LEFT."
  198. 1980  GOTO 170
  199. 2000  PRINT "COME BACK AGAIN. BRING MORE MONEY!!!"
  200. 2010  PRINT "TOTAL TURNS ";E
  201. 2020  PRINT "TOTAL MONEY LEFT ";W
  202. 2500  END
  203. 19000  PRINT "MY NUMBERS WERE: "
  204.